home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / biblio / bibtex / contrib / germbib / bst / geralpha.bst < prev    next >
Text File  |  1993-04-20  |  27KB  |  1,366 lines
  1. % BibTeX standard bibliography style `plain'
  2.         % version 0.99a for BibTeX versions 0.99a or later, LaTeX version 2.09.
  3.         % Copyright (C) 1985, all rights reserved.
  4.         % Copying of this file is authorized only if either
  5.         % (1) you make absolutely no changes to your copy, including name, or
  6.         % (2) if you do make changes, you name it something other than
  7.         % btxbst.doc, plain.bst, unsrt.bst, alpha.bst, and abbrv.bst.
  8.         % This restriction helps ensure that all standard styles are identical.
  9.         % The file btxbst.doc has the documentation for this style.
  10. %   15-feb-92   (MW)    Updated for use with `bibgerman.sty': things like "and"
  11. %                       change with the language. Switch the language using the
  12. %                       language field: 
  13. %                          language = "german" | "USenglish" | "english"
  14. %                       Then a `\selectlanguage{...}' command will be pushed just
  15. %                       before the `\bibitem...' command for the entry in work.
  16.  
  17. ENTRY
  18.   { address
  19.     author
  20.     booktitle
  21.     chapter
  22.     edition
  23.     editor
  24.     howpublished
  25.     institution
  26.     journal
  27.     key
  28.     language
  29.     month
  30.     note
  31.     number
  32.     organization
  33.     pages
  34.     publisher
  35.     school
  36.     series
  37.     title
  38.     type
  39.     volume
  40.     year
  41.   }
  42.   {}
  43.   { label extra.label sort.label }
  44.  
  45. INTEGERS { output.state before.all mid.sentence after.sentence after.block before.title }
  46.  
  47. STRINGS { s t language.state language.temp }
  48.  
  49. FUNCTION {init.state.consts}
  50. { #0 'before.all :=
  51.   #1 'mid.sentence :=
  52.   #2 'after.sentence :=
  53.   #3 'after.block :=
  54.   #4 'before.title :=
  55.   "nostate" 'language.state :=
  56. }
  57.  
  58. FUNCTION {language.state.test}
  59. { 
  60.   'language.temp :=
  61.   language.temp language.state =
  62.     { #1 }
  63.     { #0 }
  64.   if$
  65. }
  66.  
  67. FUNCTION {not}
  68. {   { #0 }
  69.     { #1 }
  70.   if$
  71. }
  72.  
  73. FUNCTION {and}
  74. {   'skip$
  75.     { pop$ #0 }
  76.   if$
  77. }
  78.  
  79. FUNCTION {or}
  80. {   { pop$ #1 }
  81.     'skip$
  82.   if$
  83. }
  84.  
  85. FUNCTION {output.nonnull}
  86. { 's :=
  87.   output.state mid.sentence =
  88.     { ", " * write$ }
  89.     { output.state after.block =
  90.         { add.period$ write$
  91.           newline$
  92.           "\newblock " write$
  93.         }
  94.         { output.state before.all =
  95.             'write$
  96.             % next if is for use with `new' FUNCTION {after.authors}
  97.             { output.state before.title =
  98.                 { ": " * write$ }
  99.                 { add.period$ " " * write$ }
  100.               if$
  101.             }
  102.           if$
  103.         }
  104.       if$
  105.       mid.sentence 'output.state :=
  106.     }
  107.   if$
  108.   s
  109. }
  110.  
  111. FUNCTION {output}
  112. { duplicate$ empty$
  113.     'pop$
  114.     'output.nonnull
  115.   if$
  116. }
  117.  
  118. FUNCTION {output.check}
  119. { 't :=
  120.   duplicate$ empty$
  121.     { pop$ "empty " t * " in " * cite$ * warning$ }
  122.     'output.nonnull
  123.   if$
  124. }
  125.  
  126. FUNCTION {output.bibitem}
  127. { newline$
  128.   language empty$
  129.     'skip$
  130.     { language.state language =
  131.         'skip$
  132.         { "\selectlanguage{\" language * "}" * write$
  133.           newline$
  134.         }
  135.       if$
  136.       language 'language.state :=
  137.     }
  138.   if$
  139.   "\bibitem[" write$
  140.   label write$
  141.   "]{" write$
  142.   cite$ write$
  143.   "}" write$
  144.   newline$
  145.   ""
  146.   before.all 'output.state :=
  147. }
  148.  
  149. FUNCTION {fin.entry}
  150. { add.period$
  151.   write$
  152.   newline$
  153. }
  154.  
  155. FUNCTION {new.block}
  156. { output.state before.all =
  157.     'skip$
  158.     { after.block 'output.state := }
  159.   if$
  160. }
  161.  
  162. FUNCTION {new.sentence}
  163. { output.state after.block =
  164.     'skip$
  165.     { output.state before.all =
  166.         'skip$
  167.         { after.sentence 'output.state := }
  168.       if$
  169.     }
  170.   if$
  171. }
  172.  
  173. % new one -> sets what is specified in FUNCTION {output.nonnull}
  174. % if `before.title 'output.state = ... if$' is true
  175. FUNCTION {after.authors}
  176. { output.state before.all =
  177.     'skip$
  178.     { before.title 'output.state := }
  179.   if$
  180. }
  181.  
  182. FUNCTION {new.block.checka}
  183. { empty$
  184.     'skip$
  185.     'new.block
  186.   if$
  187. }
  188.  
  189. FUNCTION {new.block.checkb}
  190. { empty$
  191.   swap$ empty$
  192.   and
  193.     'skip$
  194.     'new.block
  195.   if$
  196. }
  197.  
  198. FUNCTION {new.block.checkc}
  199. { empty$
  200.   swap$ empty$
  201.   and
  202.     'skip$
  203.     'after.authors
  204.   if$
  205. }
  206.  
  207. FUNCTION {new.sentence.checka}
  208. { empty$
  209.     'skip$
  210.     'new.sentence
  211.   if$
  212. }
  213.  
  214. FUNCTION {new.sentence.checkb}
  215. { empty$
  216.   swap$ empty$
  217.   and
  218.     'skip$
  219.     'new.sentence
  220.   if$
  221. }
  222.  
  223. FUNCTION {field.or.null}
  224. { duplicate$ empty$
  225.     { pop$ "" }
  226.     'skip$
  227.   if$
  228. }
  229.  
  230. FUNCTION {emphasize}
  231. { duplicate$ empty$
  232.     { pop$ "" }
  233.     { "{\em " swap$ * "}" * }
  234.   if$
  235. }
  236.  
  237. FUNCTION {smallcaps}
  238. { duplicate$ empty$
  239.     { pop$ "" }
  240.     { "{\sc " swap$ * "}" * }
  241.   if$
  242. }
  243.  
  244. INTEGERS { nameptr namesleft numnames }
  245.  
  246. FUNCTION {format.names}
  247. { 's :=
  248.   #1 'nameptr :=
  249.   s num.names$ 'numnames :=
  250.   numnames 'namesleft :=
  251.     { namesleft #0 > }
  252.     { nameptr #1 >
  253.         { s nameptr "{ff~}{vv~}{ll}{, jj}" format.name$ smallcaps 't :=
  254.           namesleft #1 >
  255.             { ", " * t * }
  256.             { numnames #2 >
  257.                 { "english" language.state.test
  258.                   "USenglish" language.state.test
  259.                   or
  260.                      {"," * }
  261.                      'skip$
  262.                   if$
  263.                 }
  264.                 'skip$
  265.               if$
  266.               t "others" =
  267.                 { " \btxetalshort{.}" * }
  268.                 { " \btxandlong{}\ " * t * }
  269.               if$
  270.             }
  271.           if$
  272.         }
  273.         { s nameptr "{ll}{, jj}{, ff}{~vv}" format.name$ smallcaps }
  274.       if$
  275.       nameptr #1 + 'nameptr :=
  276.       namesleft #1 - 'namesleft :=
  277.     }
  278.   while$
  279. }
  280.  
  281. FUNCTION {format.authors}
  282. { author empty$
  283.     { "" }
  284.     { author format.names }
  285.   if$
  286. }
  287.  
  288. FUNCTION {format.editors}
  289. { editor empty$
  290.     { "" }
  291.     { editor format.names
  292.       editor num.names$ #1 >
  293.         { "\ (\btxeditorslong{})" * }
  294.         { "\ (\btxeditorlong{})" * }
  295.       if$
  296.     }
  297.   if$
  298. }
  299.  
  300. FUNCTION {format.title}
  301. { title empty$
  302.     { "" }
  303.     {  "english" language.state.test
  304.        "USenglish" language.state.test
  305.       or
  306.         { title "t" change.case$ emphasize }
  307.         { title emphasize }
  308.       if$
  309.     }
  310.   if$
  311. }
  312.  
  313. FUNCTION {n.dashify}
  314. { 't :=
  315.   ""
  316.     { t empty$ not }
  317.     { t #1 #1 substring$ "-" =
  318.         { t #1 #2 substring$ "--" = not
  319.             { "--" *
  320.               t #2 global.max$ substring$ 't :=
  321.             }
  322.             {   { t #1 #1 substring$ "-" = }
  323.                 { "-" *
  324.                   t #2 global.max$ substring$ 't :=
  325.                 }
  326.               while$
  327.             }
  328.           if$
  329.         }
  330.         { t #1 #1 substring$ *
  331.           t #2 global.max$ substring$ 't :=
  332.         }
  333.       if$
  334.     }
  335.   while$
  336. }
  337.  
  338. FUNCTION {format.date}
  339. { year empty$
  340.     { month empty$
  341.         { "" }
  342.         { "there's a month but no year in " cite$ * warning$
  343.           month
  344.         }
  345.       if$
  346.     }
  347.     { month empty$
  348.         'year
  349.         { month " " * year * }
  350.       if$
  351.     }
  352.   if$
  353. }
  354.  
  355. FUNCTION {format.btitle}
  356. { title emphasize
  357. }
  358.  
  359. FUNCTION {tie.or.space.connect}
  360. { duplicate$ text.length$ #3 <
  361.     { "~" }
  362.     { "\ " }
  363.   if$
  364.   swap$ * *
  365. }
  366.  
  367. FUNCTION {either.or.check}
  368. { empty$
  369.     'pop$
  370.     { "can't use both " swap$ * " fields in " * cite$ * warning$ }
  371.   if$
  372. }
  373.  
  374. FUNCTION {format.bvolume}
  375. { volume empty$
  376.     { "" }
  377.     { output.state after.block =
  378.         { "\Btxvolumelong{}" }
  379.         { "\btxvolumelong{}" }
  380.       if$
  381.       volume tie.or.space.connect
  382.       series empty$
  383.         'skip$
  384.         { " \btxofserieslong{}\ " * series emphasize * }
  385.       if$
  386.       "volume and number" number either.or.check
  387.     }
  388.   if$
  389. }
  390.  
  391. FUNCTION {format.number.series}
  392. { volume empty$
  393.     { number empty$
  394.         { series field.or.null }
  395.         { output.state mid.sentence =
  396.             { "\btxnumberlong{}" }
  397.             { "\Btxnumberlong{}" }
  398.           if$
  399.           number tie.or.space.connect
  400.           series empty$
  401.             { "there's a number but no series in " cite$ * warning$ }
  402.             { " \btxinserieslong{}\ " * series emphasize * }
  403.           if$
  404.         }
  405.       if$
  406.     }
  407.     { "" }
  408.   if$
  409. }
  410.  
  411. FUNCTION {format.edition}
  412. { edition empty$
  413.     { "" }
  414.     {  "english" language.state.test
  415.        "USenglish" language.state.test
  416.       or
  417.         { output.state mid.sentence =
  418.             { edition "l" change.case$ " \btxeditionlong{}" * }
  419.             { edition "t" change.case$ " \btxeditionlong{}" * }
  420.           if$
  421.         }
  422.         { edition " \btxeditionlong{}" * }
  423.       if$
  424.     }
  425.   if$
  426. }
  427.  
  428. INTEGERS { multiresult }
  429.  
  430. FUNCTION {multi.page.check}
  431. { 't :=
  432.   #0 'multiresult :=
  433.     { multiresult not
  434.       t empty$ not
  435.       and
  436.     }
  437.     { t #1 #1 substring$
  438.       duplicate$ "-" =
  439.       swap$ duplicate$ "," =
  440.       swap$ "+" =
  441.       or or
  442.         { #1 'multiresult := }
  443.         { t #2 global.max$ substring$ 't := }
  444.       if$
  445.     }
  446.   while$
  447.   multiresult
  448. }
  449.  
  450. FUNCTION {format.pages}
  451. { pages empty$
  452.     { "" }
  453.     { pages multi.page.check
  454.         { "\btxpageslong{}" pages n.dashify tie.or.space.connect }
  455.         { "\btxpagelong{}" pages tie.or.space.connect }
  456.       if$
  457.     }
  458.   if$
  459. }
  460.  
  461. FUNCTION {format.vol.num.pages}
  462. { volume field.or.null
  463.   number empty$
  464.     'skip$
  465.     { "(" number * ")" * *
  466.       volume empty$
  467.         { "there's a number but no volume in " cite$ * warning$ }
  468.         'skip$
  469.       if$
  470.     }
  471.   if$
  472.   pages empty$
  473.     'skip$
  474.     { duplicate$ empty$
  475.         { pop$ format.pages }
  476.         { ":" * pages n.dashify * }
  477.       if$
  478.     }
  479.   if$
  480. }
  481.  
  482. FUNCTION {format.chapter.pages}
  483. { chapter empty$
  484.     'format.pages
  485.     { type empty$
  486.         { "\btxchapterlong{}" }
  487.         {  "english" language.state.test
  488.            "USenglish" language.state.test
  489.           or
  490.              { type "l" change.case$ }
  491.              { type }
  492.          if$
  493.         }
  494.       if$
  495.       chapter tie.or.space.connect
  496.       pages empty$
  497.         'skip$
  498.         { ", " * format.pages * }
  499.       if$
  500.     }
  501.   if$
  502. }
  503.  
  504. FUNCTION {format.in.ed.booktitle}
  505. { booktitle empty$
  506.     { "" }
  507.     { editor empty$
  508.         { "\Btxinlong{}\ " booktitle emphasize * }
  509.         { "\Btxinlong{}\ " format.editors * ": " * booktitle emphasize * }
  510.       if$
  511.     }
  512.   if$
  513. }
  514.  
  515. FUNCTION {empty.misc.check}
  516. { author empty$ title empty$ howpublished empty$
  517.   month empty$ year empty$ note empty$
  518.   and and and and and
  519.   key empty$ not and
  520.     { "all relevant fields are empty in " cite$ * warning$ }
  521.     'skip$
  522.   if$
  523. }
  524.  
  525. FUNCTION {format.thesis.type}
  526. { type empty$
  527.     'skip$
  528.     { pop$
  529.        "english" language.state.test
  530.        "USenglish" language.state.test
  531.       or
  532.         { type "t" change.case$ }
  533.         { type }
  534.       if$
  535.     }
  536.   if$
  537. }
  538.  
  539. FUNCTION {format.tr.number}
  540. { type empty$
  541.     { "\Btxtechreplong{}" }
  542.     'type
  543.   if$
  544.   number empty$
  545.     {  "english" language.state.test
  546.        "USenglish" language.state.test
  547.       or
  548.         { type empty$
  549.             { pop$ "\btxtechreplong{}" }
  550.             { "t" change.case$ }
  551.           if$
  552.         }
  553.         'skip$
  554.       if$
  555.     }
  556.     { number tie.or.space.connect }
  557.   if$
  558. }
  559.  
  560. FUNCTION {format.article.crossref}
  561. { key empty$
  562.     { journal empty$
  563.         { "need key or journal for " cite$ * " to crossref " * crossref *
  564.           warning$
  565.           ""
  566.         }
  567.         { "\Btxinlong{}\ " journal emphasize * }
  568.       if$
  569.     }
  570.     { "\Btxinlong{}\ " key emphasize * }
  571.   if$
  572.   " \cite{" * crossref * "}" *
  573. }
  574.  
  575. FUNCTION {format.crossref.editor}
  576. { editor #1 "{ll}{, jj}{, ff}{~vv}" format.name$ smallcaps
  577.   editor num.names$ duplicate$
  578.   #2 >
  579.     { pop$ " \btxetalshort{.}" * }
  580.     { #2 <
  581.         'skip$
  582.         { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
  583.             { " \btxetalshort{.}" * }
  584.             { " \btxandlong{}\ " * editor #2 "{ff}{~vv}{~ll}{, jj}" format.name$ smallcaps * }
  585.           if$
  586.         }
  587.       if$
  588.     }
  589.   if$
  590. }
  591.  
  592. FUNCTION {format.book.crossref}
  593. { volume empty$
  594.     { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
  595.       "\Btxinlong{}\ "
  596.     }
  597.     { "\Btxvolumelong{}" volume tie.or.space.connect
  598.       " \btxofserieslong{}\ " *
  599.     }
  600.   if$
  601.   editor empty$
  602.   editor field.or.null author field.or.null =
  603.   or
  604.     { key empty$
  605.         { series empty$
  606.             { "need editor, key, or series for " cite$ * " to crossref " *
  607.               crossref * warning$
  608.               "" *
  609.             }
  610.             { series emphasize * }
  611.           if$
  612.         }
  613.         { key emphasize * }
  614.       if$
  615.     }
  616.     { format.crossref.editor * }
  617.   if$
  618.   " \cite{" * crossref * "}" *
  619. }
  620.  
  621. FUNCTION {format.incoll.inproc.crossref}
  622. { editor empty$
  623.   editor field.or.null author field.or.null =
  624.   or
  625.     { key empty$
  626.         { booktitle empty$
  627.             { "need editor, key, or booktitle for " cite$ * " to crossref " *
  628.               crossref * warning$
  629.               ""
  630.             }
  631.             { "\Btxinlong{}\ " booktitle emphasize * }
  632.           if$
  633.         }
  634.         { "\Btxinlong{}\ " key emphasize * }
  635.       if$
  636.     }
  637.     { "\Btxinlong{}\ " format.crossref.editor * }
  638.   if$
  639.   " \cite{" * crossref * "}" *
  640. }
  641.  
  642. FUNCTION {article}
  643. { output.bibitem
  644.   format.authors "author" output.check
  645.   after.authors
  646.   format.title "title" output.check
  647.   new.block
  648.   crossref missing$
  649.     { journal 
  650.       title missing$
  651.         { emphasize }
  652.         'skip$
  653.       if$
  654.       "journal" output.check 
  655.       format.vol.num.pages output
  656.       format.date "year" output.check
  657.     }
  658.     { format.article.crossref output.nonnull
  659.       format.pages output
  660.     }
  661.   if$
  662.   new.block
  663.   note output
  664.   fin.entry
  665. }
  666.  
  667. FUNCTION {book}
  668. { output.bibitem
  669.   author empty$
  670.     { format.editors "author and editor" output.check }
  671.     { format.authors output.nonnull
  672.       crossref missing$
  673.         { "author and editor" editor either.or.check }
  674.         'skip$
  675.       if$
  676.     }
  677.   if$
  678.   after.authors
  679.   format.btitle "title" output.check
  680.   crossref missing$
  681.     { format.bvolume output
  682.       new.block
  683.       format.number.series output
  684.       new.sentence
  685.       publisher "publisher" output.check
  686.       address output
  687.     }
  688.     { new.block
  689.       format.book.crossref output.nonnull
  690.     }
  691.   if$
  692.   format.edition output
  693.   format.date "year" output.check
  694.   new.block
  695.   note output
  696.   fin.entry
  697. }
  698.  
  699. FUNCTION {booklet}
  700. { output.bibitem
  701.   format.authors output
  702.   after.authors
  703.   format.title "title" output.check
  704.   howpublished address new.block.checkb
  705.   howpublished output
  706.   address output
  707.   format.date output
  708.   new.block
  709.   note output
  710.   fin.entry
  711. }
  712.  
  713. FUNCTION {inbook}
  714. { output.bibitem
  715.   author empty$
  716.     { format.editors "author and editor" output.check }
  717.     { format.authors output.nonnull
  718.       crossref missing$
  719.         { "author and editor" editor either.or.check }
  720.         'skip$
  721.       if$
  722.     }
  723.   if$
  724.   after.authors
  725.   format.btitle "title" output.check
  726.   crossref missing$
  727.     { format.bvolume output
  728.       format.chapter.pages "chapter and pages" output.check
  729.       new.block
  730.       format.number.series output
  731.       new.sentence
  732.       publisher "publisher" output.check
  733.       address output
  734.     }
  735.     { format.chapter.pages "chapter and pages" output.check
  736.       new.block
  737.       format.book.crossref output.nonnull
  738.     }
  739.   if$
  740.   format.edition output
  741.   format.date "year" output.check
  742.   new.block
  743.   note output
  744.   fin.entry
  745. }
  746.  
  747. FUNCTION {incollection}
  748. { output.bibitem
  749.   format.authors "author" output.check
  750.   after.authors
  751.   format.title "title" output.check
  752.   new.block
  753.   crossref missing$
  754.     { format.in.ed.booktitle "booktitle" output.check
  755.       format.bvolume output
  756.       format.number.series output
  757.       format.chapter.pages output
  758.       new.sentence
  759.       publisher "publisher" output.check
  760.       address output
  761.       format.edition output
  762.       format.date "year" output.check
  763.     }
  764.     { format.incoll.inproc.crossref output.nonnull
  765.       format.chapter.pages output
  766.     }
  767.   if$
  768.   new.block
  769.   note output
  770.   fin.entry
  771. }
  772.  
  773. FUNCTION {inproceedings}
  774. { output.bibitem
  775.   format.authors "author" output.check
  776.   after.authors
  777.   format.title "title" output.check
  778.   new.block
  779.   crossref missing$
  780.     { format.in.ed.booktitle "booktitle" output.check
  781.       format.bvolume output
  782.       format.number.series output
  783.       format.pages output
  784.       address empty$
  785.         { organization publisher new.sentence.checkb
  786.           organization output
  787.           publisher output
  788.           format.date "year" output.check
  789.         }
  790.         { address output.nonnull
  791.           format.date "year" output.check
  792.           new.sentence
  793.           organization output
  794.           publisher output
  795.         }
  796.       if$
  797.     }
  798.     { format.incoll.inproc.crossref output.nonnull
  799.       format.pages output
  800.     }
  801.   if$
  802.   new.block
  803.   note output
  804.   fin.entry
  805. }
  806.  
  807. FUNCTION {conference} { inproceedings }
  808.  
  809. FUNCTION {manual}
  810. { output.bibitem
  811.   author empty$
  812.     { organization empty$
  813.         'skip$
  814.         { organization smallcaps output.nonnull
  815.           address output
  816.         }
  817.       if$
  818.     }
  819.     { format.authors output.nonnull }
  820.   if$
  821.   after.authors
  822.   format.btitle "title" output.check
  823.   author empty$
  824.     { organization empty$
  825.         { address new.block.checka
  826.           address output
  827.         }
  828.         'skip$
  829.       if$
  830.     }
  831.     { organization address new.block.checkb
  832.       organization output
  833.       address output
  834.     }
  835.   if$
  836.   format.edition output
  837.   format.date output
  838.   new.block
  839.   note output
  840.   fin.entry
  841. }
  842.  
  843. FUNCTION {mastersthesis}
  844. { output.bibitem
  845.   format.authors "author" output.check
  846.   after.authors
  847.   format.title "title" output.check
  848.   new.block
  849.   "\btxmastthesis{}" format.thesis.type output.nonnull
  850.   school "school" output.check
  851.   address output
  852.   format.date "year" output.check
  853.   new.block
  854.   note output
  855.   fin.entry
  856. }
  857.  
  858. FUNCTION {misc}
  859. { output.bibitem
  860.   format.authors output
  861.   title howpublished new.block.checkc
  862.   format.title output
  863.   howpublished new.block.checka
  864.   howpublished output
  865.   format.date output
  866.   new.block
  867.   note output
  868.   fin.entry
  869.   empty.misc.check
  870. }
  871.  
  872. FUNCTION {phdthesis}
  873. { output.bibitem
  874.   format.authors "author" output.check
  875.   after.authors
  876.   format.btitle "title" output.check
  877.   new.block
  878.   "\btxphdthesis{}" format.thesis.type output.nonnull
  879.   school "school" output.check
  880.   address output
  881.   format.date "year" output.check
  882.   new.block
  883.   note output
  884.   fin.entry
  885. }
  886.  
  887. FUNCTION {proceedings}
  888. { output.bibitem
  889.   editor empty$
  890.     { organization smallcaps output }
  891.     { format.editors output.nonnull }
  892.   if$
  893.   after.authors
  894.   format.btitle "title" output.check
  895.   format.bvolume output
  896.   format.number.series output
  897.   address empty$
  898.     { editor empty$
  899.         { publisher new.sentence.checka }
  900.         { organization publisher new.sentence.checkb
  901.           organization output
  902.         }
  903.       if$
  904.       publisher output
  905.       format.date "year" output.check
  906.     }
  907.     { address output.nonnull
  908.       format.date "year" output.check
  909.       new.sentence
  910.       editor empty$
  911.         'skip$
  912.         { organization output }
  913.       if$
  914.       publisher output
  915.     }
  916.   if$
  917.   new.block
  918.   note output
  919.   fin.entry
  920. }
  921.  
  922. FUNCTION {techreport}
  923. { output.bibitem
  924.   format.authors "author" output.check
  925.   after.authors
  926.   format.title "title" output.check
  927.   new.block
  928.   format.tr.number output.nonnull
  929.   institution "institution" output.check
  930.   address output
  931.   format.date "year" output.check
  932.   new.block
  933.   note output
  934.   fin.entry
  935. }
  936.  
  937. FUNCTION {unpublished}
  938. { output.bibitem
  939.   format.authors "author" output.check
  940.   after.authors
  941.   format.title "title" output.check
  942.   new.block
  943.   note "note" output.check
  944.   format.date output
  945.   fin.entry
  946. }
  947.  
  948. FUNCTION {default.type} { misc }
  949.  
  950. MACRO {jan} {"\btxmonjanlong{}"}
  951.  
  952. MACRO {feb} {"\btxmonfeblong{}"}
  953.  
  954. MACRO {mar} {"\btxmonmarlong{}"}
  955.  
  956. MACRO {apr} {"\btxmonaprlong{}"}
  957.  
  958. MACRO {may} {"\btxmonmaylong{}"}
  959.  
  960. MACRO {jun} {"\btxmonjunlong{}"}
  961.  
  962. MACRO {jul} {"\btxmonjullong{}"}
  963.  
  964. MACRO {aug} {"\btxmonauglong{}"}
  965.  
  966. MACRO {sep} {"\btxmonseplong{}"}
  967.  
  968. MACRO {oct} {"\btxmonoctlong{}"}
  969.  
  970. MACRO {nov} {"\btxmonnovlong{}"}
  971.  
  972. MACRO {dec} {"\btxmondeclong{}"}
  973.  
  974. MACRO {acmcs} {"ACM Computing Surveys"}
  975.  
  976. MACRO {acta} {"Acta Informatica"}
  977.  
  978. MACRO {cacm} {"Communications of the ACM"}
  979.  
  980. MACRO {ibmjrd} {"IBM Journal of Research and Development"}
  981.  
  982. MACRO {ibmsj} {"IBM Systems Journal"}
  983.  
  984. MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
  985.  
  986. MACRO {ieeetc} {"IEEE Transactions on Computers"}
  987.  
  988. MACRO {ieeetcad}
  989.  {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
  990.  
  991. MACRO {ipl} {"Information Processing Letters"}
  992.  
  993. MACRO {jacm} {"Journal of the ACM"}
  994.  
  995. MACRO {jcss} {"Journal of Computer and System Sciences"}
  996.  
  997. MACRO {scp} {"Science of Computer Programming"}
  998.  
  999. MACRO {sicomp} {"SIAM Journal on Computing"}
  1000.  
  1001. MACRO {tocs} {"ACM Transactions on Computer Systems"}
  1002.  
  1003. MACRO {tods} {"ACM Transactions on Database Systems"}
  1004.  
  1005. MACRO {tog} {"ACM Transactions on Graphics"}
  1006.  
  1007. MACRO {toms} {"ACM Transactions on Mathematical Software"}
  1008.  
  1009. MACRO {toois} {"ACM Transactions on Office Information Systems"}
  1010.  
  1011. MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
  1012.  
  1013. MACRO {tcs} {"Theoretical Computer Science"}
  1014.  
  1015. READ
  1016.  
  1017. FUNCTION {sortify}
  1018. { purify$
  1019.   "l" change.case$
  1020. }
  1021.  
  1022. INTEGERS { len }
  1023.  
  1024. FUNCTION {chop.word}
  1025. { 's :=
  1026.   'len :=
  1027.   s #1 len substring$ =
  1028.     { s len #1 + global.max$ substring$ }
  1029.     's
  1030.   if$
  1031. }
  1032.  
  1033. INTEGERS { et.al.char.used }
  1034.  
  1035. FUNCTION {initialize.et.al.char.used}
  1036. { #0 'et.al.char.used :=
  1037. }
  1038.  
  1039. EXECUTE {initialize.et.al.char.used}
  1040.  
  1041. FUNCTION {format.lab.names}
  1042. { 's :=
  1043.   s num.names$ 'numnames :=
  1044.   numnames #1 >
  1045.     { numnames #4 >
  1046.   { #3 'namesleft := }
  1047.   { numnames 'namesleft := }
  1048.       if$
  1049.       #1 'nameptr :=
  1050.       ""
  1051.   { namesleft #0 > }
  1052.   { nameptr numnames =
  1053.       { s nameptr "{ff }{vv }{ll}{ jj}" format.name$ "others" =
  1054.     { "{\etalchar{+}}" *
  1055.       #1 'et.al.char.used :=
  1056.     }
  1057.     { s nameptr "{v{}}{l{}}" format.name$ * }
  1058.         if$
  1059.       }
  1060.       { s nameptr "{v{}}{l{}}" format.name$ * }
  1061.     if$
  1062.     nameptr #1 + 'nameptr :=
  1063.     namesleft #1 - 'namesleft :=
  1064.   }
  1065.       while$
  1066.       numnames #4 >
  1067.   { "{\etalchar{+}}" *
  1068.     #1 'et.al.char.used :=
  1069.   }
  1070.   'skip$
  1071.       if$
  1072.     }
  1073.     { s #1 "{v{}}{l{}}" format.name$
  1074.       duplicate$ text.length$ #2 <
  1075.   { pop$ s #1 "{ll}" format.name$ #3 text.prefix$ }
  1076.   'skip$
  1077.       if$
  1078.     }
  1079.   if$
  1080. }
  1081.  
  1082. FUNCTION {author.key.label}
  1083. { author empty$
  1084.     { key empty$
  1085.   { cite$ #1 #3 substring$ }
  1086.   { key #3 text.prefix$ }
  1087.       if$
  1088.     }
  1089.     { author format.lab.names }
  1090.   if$
  1091. }
  1092.  
  1093. FUNCTION {author.editor.key.label}
  1094. { author empty$
  1095.     { editor empty$
  1096.   { key empty$
  1097.       { cite$ #1 #3 substring$ }
  1098.       { key #3 text.prefix$ }
  1099.     if$
  1100.   }
  1101.   { editor format.lab.names }
  1102.       if$
  1103.     }
  1104.     { author format.lab.names }
  1105.   if$
  1106. }
  1107.  
  1108. FUNCTION {author.key.organization.label}
  1109. { author empty$
  1110.     { key empty$
  1111.   { organization empty$
  1112.       { cite$ #1 #3 substring$ }
  1113.       { "The " #4 organization chop.word #3 text.prefix$ }
  1114.     if$
  1115.   }
  1116.   { key #3 text.prefix$ }
  1117.       if$
  1118.     }
  1119.     { author format.lab.names }
  1120.   if$
  1121. }
  1122.  
  1123. FUNCTION {editor.key.organization.label}
  1124. { editor empty$
  1125.     { key empty$
  1126.   { organization empty$
  1127.       { cite$ #1 #3 substring$ }
  1128.       { "The " #4 organization chop.word #3 text.prefix$ }
  1129.     if$
  1130.   }
  1131.   { key #3 text.prefix$ }
  1132.       if$
  1133.     }
  1134.     { editor format.lab.names }
  1135.   if$
  1136. }
  1137.  
  1138. FUNCTION {calc.label}
  1139. { type$ "book" =
  1140.   type$ "inbook" =
  1141.   or
  1142.     'author.editor.key.label
  1143.     { type$ "proceedings" =
  1144.   'editor.key.organization.label
  1145.   { type$ "manual" =
  1146.       'author.key.organization.label
  1147.       'author.key.label
  1148.     if$
  1149.   }
  1150.       if$
  1151.     }
  1152.   if$
  1153.   duplicate$
  1154.   year field.or.null purify$ #-1 #2 substring$
  1155.   *
  1156.   'label :=
  1157.   year field.or.null purify$ #-1 #4 substring$
  1158.   *
  1159.   sortify 'sort.label :=
  1160. }
  1161.  
  1162. FUNCTION {sort.format.names}
  1163. { 's :=
  1164.   #1 'nameptr :=
  1165.   ""
  1166.   s num.names$ 'numnames :=
  1167.   numnames 'namesleft :=
  1168.     { namesleft #0 > }
  1169.     { nameptr #1 >
  1170.   { "   " * }
  1171.   'skip$
  1172.       if$
  1173.       s nameptr "{vv{ } }{ll{ }}{  ff{ }}{  jj{ }}" format.name$ 't :=
  1174.       nameptr numnames = t "others" = and
  1175.   { "et al" * }
  1176.   { t sortify * }
  1177.       if$
  1178.       nameptr #1 + 'nameptr :=
  1179.       namesleft #1 - 'namesleft :=
  1180.     }
  1181.   while$
  1182. }
  1183.  
  1184. FUNCTION {sort.format.title}
  1185. { 't :=
  1186.   "A " #2
  1187.     "An " #3
  1188.       "The " #4 t chop.word
  1189.     chop.word
  1190.   chop.word
  1191.   sortify
  1192.   #1 global.max$ substring$
  1193. }
  1194.  
  1195. FUNCTION {author.sort}
  1196. { author empty$
  1197.     { key empty$
  1198.   { "to sort, need author or key in " cite$ * warning$
  1199.     ""
  1200.   }
  1201.   { key sortify }
  1202.       if$
  1203.     }
  1204.     { author sort.format.names }
  1205.   if$
  1206. }
  1207.  
  1208. FUNCTION {author.editor.sort}
  1209. { author empty$
  1210.     { editor empty$
  1211.   { key empty$
  1212.       { "to sort, need author, editor, or key in " cite$ * warning$
  1213.         ""
  1214.       }
  1215.       { key sortify }
  1216.     if$
  1217.   }
  1218.   { editor sort.format.names }
  1219.       if$
  1220.     }
  1221.     { author sort.format.names }
  1222.   if$
  1223. }
  1224.  
  1225. FUNCTION {author.organization.sort}
  1226. { author empty$
  1227.     { organization empty$
  1228.   { key empty$
  1229.       { "to sort, need author, organization, or key in " cite$ * warning$
  1230.         ""
  1231.       }
  1232.       { key sortify }
  1233.     if$
  1234.   }
  1235.   { "The " #4 organization chop.word sortify }
  1236.       if$
  1237.     }
  1238.     { author sort.format.names }
  1239.   if$
  1240. }
  1241.  
  1242. FUNCTION {editor.organization.sort}
  1243. { editor empty$
  1244.     { organization empty$
  1245.   { key empty$
  1246.       { "to sort, need editor, organization, or key in " cite$ * warning$
  1247.         ""
  1248.       }
  1249.       { key sortify }
  1250.     if$
  1251.   }
  1252.   { "The " #4 organization chop.word sortify }
  1253.       if$
  1254.     }
  1255.     { editor sort.format.names }
  1256.   if$
  1257. }
  1258.  
  1259. FUNCTION {presort}
  1260. { calc.label
  1261.   sort.label
  1262.   "    "
  1263.   *
  1264.   type$ "book" =
  1265.   type$ "inbook" =
  1266.   or
  1267.     'author.editor.sort
  1268.     { type$ "proceedings" =
  1269.   'editor.organization.sort
  1270.   { type$ "manual" =
  1271.       'author.organization.sort
  1272.       'author.sort
  1273.     if$
  1274.   }
  1275.       if$
  1276.     }
  1277.   if$
  1278.   *
  1279.   "    "
  1280.   *
  1281.   year field.or.null sortify
  1282.   *
  1283.   "    "
  1284.   *
  1285.   title field.or.null
  1286.   sort.format.title
  1287.   *
  1288.   #1 entry.max$ substring$
  1289.   'sort.key$ :=
  1290. }
  1291.  
  1292. ITERATE {presort}
  1293.  
  1294. SORT
  1295.  
  1296. STRINGS { longest.label last.sort.label next.extra }
  1297.  
  1298. INTEGERS { longest.label.width last.extra.num }
  1299.  
  1300. FUNCTION {initialize.longest.label}
  1301. { "" 'longest.label :=
  1302.   #0 int.to.chr$ 'last.sort.label :=
  1303.   "" 'next.extra :=
  1304.   #0 'longest.label.width :=
  1305.   #0 'last.extra.num :=
  1306. }
  1307.  
  1308. FUNCTION {forward.pass}
  1309. { last.sort.label sort.label =
  1310.     { last.extra.num #1 + 'last.extra.num :=
  1311.       last.extra.num int.to.chr$ 'extra.label :=
  1312.     }
  1313.     { "a" chr.to.int$ 'last.extra.num :=
  1314.       "" 'extra.label :=
  1315.       sort.label 'last.sort.label :=
  1316.     }
  1317.   if$
  1318. }
  1319.  
  1320. FUNCTION {reverse.pass}
  1321. { next.extra "b" =
  1322.     { "a" 'extra.label := }
  1323.     'skip$
  1324.   if$
  1325.   label extra.label * 'label :=
  1326.   label width$ longest.label.width >
  1327.     { label 'longest.label :=
  1328.       label width$ 'longest.label.width :=
  1329.     }
  1330.     'skip$
  1331.   if$
  1332.   extra.label 'next.extra :=
  1333. }
  1334.  
  1335. EXECUTE {initialize.longest.label}
  1336.  
  1337. ITERATE {forward.pass}
  1338.  
  1339. REVERSE {reverse.pass}
  1340.  
  1341. FUNCTION {begin.bib}
  1342. { et.al.char.used
  1343.     { "\newcommand{\etalchar}[1]{$^{#1}$}" write$ newline$ }
  1344.     'skip$
  1345.   if$
  1346.   preamble$ empty$
  1347.     'skip$
  1348.     { preamble$ write$ newline$ }
  1349.   if$
  1350.   "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
  1351. }
  1352.  
  1353. EXECUTE {begin.bib}
  1354.  
  1355. EXECUTE {init.state.consts}
  1356.  
  1357. ITERATE {call.type$}
  1358.  
  1359. FUNCTION {end.bib}
  1360. { newline$
  1361.   "\end{thebibliography}" write$ newline$
  1362. }
  1363.  
  1364. EXECUTE {end.bib}
  1365.  
  1366.